home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 11 / PC World Interactive 11.iso / share / multimed / MAINACT / DATA1.CAB / Script_Files / playfs.rex < prev    next >
OS/2 REXX Batch file  |  1998-05-04  |  1KB  |  26 lines
  1. /**************************************************************
  2.  *                                                            *
  3.  *                   MainActor Rexx Script                    *
  4.  *                                                            *
  5.  *  Plays the current project in fullscreen mode, restores    *
  6.  *  old settings when finished.                               *
  7.  *                                                            *
  8.  *  Last modified: 09/23/97, Written by: Markus Moenig        *
  9.  *                                                            *
  10.  **************************************************************/
  11.  
  12.   IF GetGlobalInfo("LOADEDPROJECTS")= "0" THEN DO     /* Check if there are */
  13.    BEGIN                                              /* any projects loaded */
  14.     say "No project loaded! Exiting ..."              /* No project, exit */
  15.     exit
  16.    END
  17.  
  18.   oldfs_sett=SetPlaybackConfig("FULLSCREEN", "ON" )      /* Set FullScreen mode */
  19.   oldsts_sett=SetPlaybackConfig("SCALETOSCREEN", "OFF" ) /* Disable scaling */
  20.   oldbm_sett=SetPlaybackConfig("USEBESTMODE", "ON" )     /* Use best availabe screen-mode */
  21.  
  22.   PlayProject()                                          /* Play it ... */
  23.                               
  24.   SetPlaybackConfig("FULLSCREEN", oldfs_sett)            /* Restore old settings ... */
  25.   SetPlaybackConfig("SCALETOSCREEN", oldsts_sett)
  26.   SetPlaybackConfig("USEBESTMODE", oldbm_sett)